let compare a b =
 if a > b then 1 
 else if a = b then 0
 else -1;;

let rec find someone l1 =function
    [] -> failwith "cette personne n'existe pas"
  | (e1,e2)::l -> if  someone = e1 then e2 else find someone l;;
